home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlMonthCalSetMaxSelCount.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  951 b   |  34 lines
  1. #include <GUIConstants.au3>
  2. #include <date.au3>
  3. #include <GuiMonthCal.au3>
  4.  
  5. opt('MustDeclareVars', 1)
  6.  
  7. Dim $Date, $Btn_Exit, $Combo, $msg, $Status
  8.  
  9. GUICreate( "Set Max Sel Count", 450, 254)
  10.  
  11. $Date = GUICtrlCreateMonthCal (_NowCalcDate(), 10, 10, 190, 155, $MCS_MULTISELECT)
  12. $Status = GUICtrlCreateLabel("", 0, 234, 450, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  13.  
  14. $Btn_Exit = GUICtrlCreateButton("Exit", 180, 180, 90, 30)
  15.  
  16. $Combo = GUICtrlCreateCombo("", 220, 10, 100, 21, $CBS_DROPDOWNLIST)
  17. GUICtrlSetData($Combo, "1|2|3|4|5|6|7|8|9|10|11|12", "1")
  18.  
  19. GUISetState()
  20.  
  21. While 1
  22.    $msg = GUIGetMsg()
  23.    Select
  24.       Case $msg = $GUI_EVENT_CLOSE Or $msg = $Btn_Exit
  25.          ExitLoop
  26.       Case $msg = $Combo
  27.          If (_GUICtrlMonthCalSetMaxSelCount ($Date, GUICtrlRead($Combo))) Then
  28.             GUICtrlSetData($Status, "Successful")
  29.          Else
  30.             GUICtrlSetData($Status, "Failed")
  31.          EndIf
  32.    EndSelect
  33. WEnd
  34.